﻿Public Class FrmStart

    Private Sub FrmStart_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            MySQLConnect.SeConnecter()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub

    Private Sub ListeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListeToolStripMenuItem.Click
        Dim cli As New GestClient
        cli.Show()
    End Sub

    Private Sub FournisseursToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FournisseursToolStripMenuItem.Click
        FrmFournisseur.Close()
        Dim frss As New FrmFournisseur
        frss.Show()
    End Sub

    Private Sub CommandesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CommandesToolStripMenuItem.Click
        Dim com As New FrmGestComm
        com.Show()
    End Sub

    Private Sub GestionToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GestionToolStripMenuItem.Click
        Dim gestProduits As New FrmProduit
        gestProduits.Show()
    End Sub

    Private Sub RechercheToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RechercheToolStripMenuItem.Click
        Dim frmRech As New FrmRechProduit
        frmRech.Show()
    End Sub
End Class
